Có 2 bài, ai làm được bài nào giúp mình với ạ, tại đang cần gấp. Cảm ơn mọi người nhiều

Bài 1: Cho đoạn chương trình sau: 

Program Vidu;

Var 

     A,B : text;

     F : integer;

Begin

     Assign ( A,'Songuyen.TXT');

     Assign ( B,'Soam.TXT');

     reset (A);

     rewrite (B);

     while not eof (A) do

     begin

            read ( A, x);

            Ifx>= 0 then

            Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)

            else write ( B,x);

      end;

      close (A); close (B);

End.

Xác định ý nghĩa của các lệnh và cho biết chương trình trên làm công việc gì?

Bài 2: Cho tệp SONGUYEN.INP gồm các số nguyên (mỗi số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Hãy đọc dữ liệu từ tệp SONGUYEN.INP và ghi vào tệp SONGUYEN.OUT tổng các số nguyên chẵn.

Câu 1: khi thực hiện đoạn chương trình sau: n:=1; T:=50;

While n > 20 do begin n:=n+5; T:= T – n end;

Hãy cho biết giá trị của biến T bằng bao nhiêu?

A.    14  

B.    15

C.    16

D.   17

Câu 2:

a)    Trong câu lệnh khai báo biến mảng,phát biểu nào sau đây là đúng

A.    Chỉ số đầu và chỉ số cuối là 2 số nguyên

B.    Chỉ số đầu chỉ số cuối

C.    Kiểu dữ liệu có thể là integer hoặc real

D.   Cả 3 ý trên

b)    Trong cú pháp khai báo biến mảng,chỉ số đầu và chỉ số cuối là hai số

A.    Số nguyên

B.    Số thực

C.    Kí tự

D.   Xâu kí tự

Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính tổng S=1+2+..+n (bằng lệnh while) Giúp mình với đang cần gấp :